<!--#include file="conn.asp"-->
<%
id = request("id")
cat = request("cat")
if cat="sys" then
set rs = server.CreateObject("ADODB.recordset")
rs.Open "select * from daohang100_sys_sites where id = "& id &"",conn
response.Redirect(rs("siteurl"))
rs.Close
elseif cat="out" then
set rs = server.CreateObject("ADODB.recordset")
rs.Open "select * from daohang100_out_sites where id = "& id &"",conn
clickoutnumber  = rs("clickoutnumber")+1
conn.Excute "Update daohang100_sys_sites set clickoutnumber="& clickoutnumber &" where id = "& id &""
response.Redirect(rs("siteurl"))
rs.Close
end if
%>